home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / P4UTIL.ZIP / FILEMGRA.PRG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-11-03  |  13.2 KB  |  549 lines
  1. 1 REM ********************************
  2. 2 REM *                              *
  3. 3 REM *         FILEMANAGER          *
  4. 4 REM *                              *
  5. 5 REM *   BY:GUIDO STIELDORF/6-6-86  *
  6. 6 REM *                              *
  7. 7 REM ********************************
  8. 10 POKE65305,0:POKE65301,0:PRINT"[147]":PRINTCHR$(14)
  9. 20 PRINT"[159][147][158]              [198]ILE [205]ANAGER              [146]
  10. 25 Q1$[178]"(null)LEFT$RIGHT$ASC(null)+":Q2$[178]"      "
  11. 30 [153]"  (null)LEFT$ATN(null)VAL(null)ATN(null)VAL BY CHR$UIDO (null)TIELDORF 6/1986  WAIT
  12. 32 PRINT:PRINT"[129]"
  13. 35 PRINTQ2$"0) [211][195][210][193][212][195][200] [193][204][204] ','-[198][201][204][197][211]
  14. 40 [153]Q2$"1) (null)(null)RIGHT$(null)(null) ATN PEEKATN(null)RIGHT$LEN-ASCRIGHT$(null)VAL
  15. 45 PRINTQ2$"2) [196][207][211]-[195][207][205][205][193][206][196][211]
  16. 50 [153]Q2$"3) (null)VAL(null)(null) PEEK(null)(null)LEN(null)(null) (STR$(null)(null)'(null) (null)LEN(null)ATN(null)LENLEFT$)
  17. 55 PRINTQ2$"4) [208][210][207][212][197][195][212] [215][200][207][204][197] [196][201][211][203]
  18. 60 [153]Q2$"5) LENLEFT$ATN(null)CHR$VAL STR$RIGHT$(null)(null)-(null)ATN(null)VAL ATN(null)STR$ RIGHT$STR$
  19. 65 PRINTQ2$"6) [211][195][210][193][212][195][200][197][196] [198][201][204][197] [211][193][204][214][193][199][197][193][194][204][197]?
  20. 70 [153]Q2$"7) (null)(null)RIGHT$(null)(null) ASCRIGHT$(null)VAL RIGHT$(null) LEFT$VAL(null)
  21. 75 PRINTQ2$"8) [213][206][208][210][207][212][197][195][212] [198][201][204][197]
  22. 80 [153]Q2$"9) (null)ATN(null)(null)ATNCHR$VAL (null)LEN(null)ATN(null)LENLEFT$VALSTR$ ASCRIGHT$(null)VAL
  23. 85 PRINTQ1$"1) [208][210][207][212][197][195][212] [198][201][204][197] [198][210][207][205] [211][195][210][193][212][195][200][201][206][199]
  24. 90 [153]Q1$"2) (null)LEFT$(null)(null) ASCRIGHT$(null)VAL-(null)ATN(null)ATN(null)VAL(null)VAL(null)
  25. 95 PRINTQ1$"3) [195][200][193][206][199][197] [198][201][204][197]-[212][217][208][197]
  26. 100 [153]Q1$"4) (null)(null)RIGHT$(null)(null) STR$RIGHT$(null)VALLEN(null)(null)(null)(null)
  27. 105 PRINTQ1$"5) [211][200][207][215] [196][201][210][197][195][212][207][210][217]
  28. 110 [153]Q1$"6) LEN(null)(null)(null)VAL ATN(null) (null)(null)VAL(null) ASCRIGHT$(null)VAL
  29. 112 PRINT:PRINT:PRINT
  30. 120 PRINT"[159][208][210][201][206][212][197][210]: [205][208][211] 801, [211][197][195][207][206][196].[193][196][196][210][197][211][211] 4     ":M=0:POKE4071,160
  31. 150 GETA$:M=M+1:IFM=10THENM=0
  32. 152 PRINTMID$("[146]",M/5+1,1);
  33. 155 PRINT"  [211][200][193][210][197][215][193][210][197] BY [199]UIDO [211]TIELDORF 6/1986   [146]
  34. 160 [139](A$[179]"0" [176] A$[177]"9") [175] (A$[179]"!" [176] A$[177]"&") [137]150
  35. 200 [153]"";:[139]A$[177][178]"0"[137]220
  36. 210 [145][198](A$)[171][198]("!")[170]1[137]11000,9000,4000,2000,12000,1000
  37. 220 [145][197](A$)[170]1[137]10000,13000,3000,14000,15000,5000,6000,16000,8000,7000
  38. 299 :::::::::::::::::::
  39. 300 [143] CHECK FOR ERROR
  40. 301 :::::::::::::::::::
  41. 310 [132]15,A1$,A2$,A3$,A4$
  42. 320 DS$[178]A1$[170]", "[170]A2$[170]","[170]A3$[170]","[170]A4$
  43. 330 DS[178][197](A1$):[139]DS[179]19[167][142]
  44. 340 [153]"LOAD(null)TATUS : ";DS$
  45. 350 [153]"LENONTINUE ?"
  46. 360 [161]A$:[139]A$[178]"Y"[167][142]
  47. 370 [139]A$[179][177]"N"[137]360
  48. 380 [160]15:[138]
  49. 399 :::::::::::::::
  50. 400 [143] SEARCH FILE
  51. 401 :::::::::::::::
  52. 410 T[178]18:S[178]1:MO[178]0:[143] ***F$=FILENAME***
  53. 415 QW$[178]F$[170][200]("                 ",16[171][195](F$))
  54. 420 [143] *** LOOP ***
  55. 430 [152]15,"U1 4 0";T;S:[141]300:T7[178]T:S7[178]S
  56. 440 [152]15,"B-P 4 0":[141]300
  57. 450 [161]#4,T$,S$
  58. 460 S[178][198](S$[170][199](0)):T[178][198](T$[170][199](0))
  59. 470 [129]QW[178]0[164]7
  60. 480 AD[178]32[172]QW[170]2
  61. 490 [152]15,"B-P 4";AD[170]3:[141]300
  62. 500 DN$[178]"":[129]LK[178]0[164]15:[161]#4,L$:[139]L$[178][199](160)[167]L$[178][199](32)
  63. 510 DN$[178]DN$[170]L$:[130]:[139]DN$[178]QW$[167]QW[178]9:[130]QW:MO[178]1:[142]
  64. 520 [130]
  65. 530 [139]T[177]0[137]430:[143] *** END LOOP ***
  66. 540 [142]:[143] ** MO=1, WHEN FOUND *****
  67. 550 [143] *AD=BYTE, T+S ARE DEFAULT *****
  68. 600 [153]"(null)HIS FILE IS NOT ON THE DISK."
  69. 610 [153]
  70. 620 [153]"(null)VAL(null)(null)(null)(null)WAIT
  71. 630 GETA$:IFA$<>CHR$(13)GOTO630
  72. 640 CLOSE15:RUN
  73. 800 T$(0)="[196][197][204]":T$(1)="[211][197][209]":T$(2)="[208][210][199]":T$(3)="[213][211][210]":T$(4)="[210][197][204]":T$(5)="[201][204][204]"
  74. 810 T$(6)="[201][204][204]":T$(7)="[201][204][204]":RETURN
  75. 999 ::::::::::::::::::::::
  76. 1000 REM CLOSE AN OPEN FILE
  77. 1001 ::::::::::::::::::::::
  78. 1010 INPUT"[147][198]ILENAME  ";F$:IFLEN(F$)>16GOTO1010
  79. 1020 OPEN15,8,15
  80. 1030 OPEN4,8,4,"#
  81. 1040 [141]400:[139]MO[178]0[137]600
  82. 1050 [152]15,"B-P 4";AD
  83. 1060 [161]#4,A$:A[178][198](A$[170][199](0))
  84. 1070 A[178]A[176]128
  85. 1080 [152]15,"B-P 4";AD
  86. 1090 [152]4,[199](A);
  87. 1100 [160]15
  88. 1110 [153]"ASCILE IS NOW CLOSED.
  89. 1120 PRINT" [200][201][212]  [210][197][212][213][210][206][146] [208][204][197][193][211][197].
  90. 1130 [161]A$:[139]A$[179][177][199](13)[137]1130
  91. 1140 [138]
  92. 1999 ::::::::::::::::::::::
  93. 2000 [143] DIRECTORY-HARDCOPY
  94. 2001 ::::::::::::::::::::::
  95. 2010 [159]3,4,7
  96. 2020 [141]800
  97. 2030 [152]3
  98. 2040 [159]15,8,15,"I":[141]300
  99. 2050 [159]4,8,4,"#":[141]300
  100. 2060 [152]15,"U1 4 0 18 0":[141]300
  101. 2070 [152]15,"B-P 4 2":[141]300
  102. 2080 [161]#4,A$,B$
  103. 2090 [152]3,"STR$RIGHT$(null)VALLEN(null)(null)(null)(null) :
  104. 2100 PRINT#3,"[198]ORMAT : 2";A$
  105. 2110 PRINT#3,"[196][207][211]-[213]SER [198]LAG :";ASC(B$+CHR$(0))
  106. 2120 PRINT#15,"B-P 4 144"
  107. 2130 GOTO2170
  108. 2140 DN$="":FORN=1TOAC
  109. 2150 GET#4,A$:IFA$=""THENA$=" "
  110. 2155 DN$=DN$+A$
  111. 2160 NEXT:RETURN
  112. 2170 AC=18:GOSUB2140
  113. 2180 PRINT#3,"[196]ISK-NAME :";DN$:AC=3:GOSUB2140
  114. 2190 PRINT#3,"[201][196] :           ";DN$
  115. 2191 PRINT#15,"M-R"CHR$(250)CHR$(2)CHR$(1):GET#15,A$:IFA$=""THENA$=CHR$(0)
  116. 2192 PRINT#15,"M-R"CHR$(252)CHR$(2)CHR$(1):GET#15,B$:IFB$=""THENB$=CHR$(0)
  117. 2193 PRINT#3,"FREE BLOCKS :";ASC(A$)+256*ASC(B$)
  118. 2200 PRINT#3
  119. 2210 PRINT#3,"FILENAME        FILETYPE LENGTH CLOSED       PROTECTED";
  120. 2220 PRINT#3," [210]ECORDLENGTH
  121. 2230 [152]3,"=======================================================";
  122. 2240 [152]3,"=================
  123. 2250 T=18:S=1
  124. 2260 REM LOOP ************************
  125. 2270 PRINT#15,"U1 4 0";T;S:GOSUB300
  126. 2280 PRINT#15,"B-P 4 0":GOSUB300
  127. 2290 GET#4,T$,S$
  128. 2300 S=ASC(S$+CHR$(0)):T=ASC(T$+CHR$(0))
  129. 2310 FORQW=0TO7
  130. 2320 AD=32*QW+2
  131. 2330 PRINT#15,"B-P 4";AD+3:GOSUB300
  132. 2340 AC=16:GOSUB2140:IFDN$="              "GOTO2490
  133. 2345 PRINT#3,DN$;"  ";
  134. 2350 PRINT#15,"B-P 4";AD:GOSUB300
  135. 2360 GET#4,A$:FT=ASC(A$+CHR$(0)):GOSUB300
  136. 2370 PRINT#3,T$(FT AND7);"    ";:REM ATTENTION!'FT AND' AND  NOT  'FTAND'CLOSE!!
  137. 2380 PRINT#15,"B-P 4";AD+28
  138. 2390 GET#4,A$,B$
  139. 2400 AB=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
  140. 2410 PRINT#3,AB;CHR$(16);"36";
  141. 2420 E$(0)="[206]O":E$(1)="[217]ES "
  142. 2430 PRINT#3,E$(FT/128);"        ";E$((FT AND64)/64);"        ";
  143. 2440 IF(FT AND7)<>4GOTO2480
  144. 2450 PRINT#15,"B-P 4";AD+21
  145. 2460 GET#4,A$:A=ASC(A$+CHR$(0))
  146. 2470 PRINT#3,A;
  147. 2480 PRINT#3
  148. 2490 NEXT
  149. 2500 IFT>0GOTO2270
  150. 2510 PRINT#3,"=======================================================";
  151. 2520 PRINT#3,"=================
  152. 2530 [152]3,"ASCILEMANAGER, (null)LEFT$ATN(null)VAL(null)ATN(null)VAL BY CHR$UIDO (null)TIELDORF 6/1986
  153. 2540 PRINT#3,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  154. 2550 CLOSE3
  155. 2560 CLOSE4
  156. 2570 CLOSE15
  157. 2580 RUN
  158. 2999 ::::::::::::::::
  159. 3000 REM DOS-COMMANDS
  160. 3001 ::::::::::::::::
  161. 3010 PRINT"[147][196][207][211]-COMMANDS"
  162. 3020 POKE239,1:POKE1319,34:PRINT">";
  163. 3030 OPEN1,0:INPUT#1,BE$:CLOSE1
  164. 3040 IFLEFT$(BE$,1)="S"GOTO3120
  165. 3050 IFLEFT$(BE$,1)="N"GOTO3120
  166. 3060 OPEN4,8,15,BE$
  167. 3070 GET#4,A$:DN$=DN$+A$:IFA$<>CHR$(13)GOTO3070
  168. 3080 PRINTCHR$(13)"[211]TATUS : ";DN$
  169. 3090 PRINT" [200][201][212]  [210][197][212][213][210][206][146] [208][204][197][193][211][197]
  170. 3100 [161]A$:[139]A$[179][177][199](13)[137]3100
  171. 3110 [138]
  172. 3120 [153][199](13)"ATNRE (null)OU (null)URE ((null)/(null)) ?
  173. 3130 GETA$:IFA$="N"THENRETURN
  174. 3140 IFA$<>"Y"GOTO3130
  175. 3150 GOTO3060
  176. 3999 ::::::::::::::::::::
  177. 4000 REM CHANGE FILE-TYPE
  178. 4001 ::::::::::::::::::::
  179. 4010 INPUT"[147][198]ILENAME ";F$
  180. 4020 IFLEN(F$)>16ORF$=""GOTO4010
  181. 4021 YJ=0
  182. 4025 OPEN15,8,15,"I
  183. 4026 [159]4,8,4,"#
  184. 4030 GOSUB400:IFMO=0GOTO600
  185. 4040 PRINT#15,"B-P 4";AD
  186. 4050 GET#4,A$:A=ASC(A$+CHR$(0))
  187. 4060 PRINT"[147][198]ILETYPE :"
  188. 4070 GOSUB800:PRINT"";T$(AAND7)
  189. 4080 E$(1)="[195]LOSED":E$(0)="[207]PEN":W$(1)="[211][195][210][193][212][195][200]-[208]ROTECTED"
  190. 4090 W$(0)="[213]NPROTECTED"
  191. 4100 PRINT"";E$(A/128)
  192. 4110 PRINT"";W$((AAND64)/64)
  193. 4120 PRINT"[206]EW [198]ILETYPE :
  194. 4130 [129]N[178]0[164]7
  195. 4140 [153]N;"CMD> ";T$(N)
  196. 4150 [130]
  197. 4160 [161]A$:[139]A$[179]"0"[176]A$[177]"7"[137]4160
  198. 4170 A[178]128[170][197](A$)
  199. 4180 [152]15,"B-P 4";AD
  200. 4190 [152]4,[199](A);
  201. 4200 [152]15,"U2 4 0";T7,S7
  202. 4210 [160]4,8,4:[139]YJ[167][152]15,"V
  203. 4220 CLOSE15,8,15
  204. 4230 RUN
  205. 4999 :::::::::::::::::::::::::::
  206. 5000 REM CHANGE DISK-NAME AND ID
  207. 5001 :::::::::::::::::::::::::::
  208. 5010 OPEN15,8,15,"I
  209. 5020 [159]4,8,4,"#
  210. 5030 PRINT#15,"U1 4 0 18 0
  211. 5040 [152]15,"B-P 4 144
  212. 5050 FORN=144TO161
  213. 5060 GET#4,A$:IFA$<>CHR$(160)THENDN$=DN$+A$
  214. 5070 NEXT
  215. 5080 PRINT"[147][196]ISKNAME :";CHR$(34);DN$;CHR$(34)
  216. 5090 FORN=162TO166:GET#4,A$:WE$=WE$+A$:NEXT
  217. 5100 PRINT"[201][196] AND [198]ORMAT :";WE$
  218. 5110 PRINT"WHAT IS THE NEW NAME ?
  219. 5120 [159]1,0
  220. 5130 [151]1319,34:[151]239,1
  221. 5140 [132]1,DN$
  222. 5150 [153]
  223. 5160 [160]1
  224. 5170 [153]
  225. 5180 [139]DN$[178]""[176][195](DN$)[177]16[137]5120
  226. 5190 [152]15,"B-P 4 144
  227. 5210 PRINT#4,DN$;:N=LEN(DN$)
  228. 5220 IFN<16THENFORN=N+1TO18:PRINT#4,CHR$(160);:NEXT
  229. 5230 INPUT"WHAT IS THE NEW [201][196] ";A$
  230. 5240 IFLEN(A$)<>2THENPRINT"2 CHARACTERS PLEASE !":GOTO5240
  231. 5250 PRINT#4,A$;:PRINT#15,"U2 4 0 18 0"
  232. 5260 CLOSE15
  233. 5270 RUN
  234. 5999 ::::::::::::::::::::::::::::::::::
  235. 6000 REM CHECK FILE FOR POSSIBLE RESCUE
  236. 6001 ::::::::::::::::::::::::::::::::::
  237. 6010 INPUT"[147][198]ILENAME :";F$
  238. 6020 IFF$=""ORLEN(F$)>16GOTO6010
  239. 6030 OPEN15,8,15,"I
  240. 6040 [159]4,8,4,"#
  241. 6050 GOSUB400:IFMO=0GOTO600
  242. 6060 PRINT#15,"B-P 4";AD+28
  243. 6070 GET#4,A$,B$
  244. 6080 AB=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)):IFAB=0GOTO6290
  245. 6090 AS=0
  246. 6100 PRINT#15,"B-P 4";AD+1
  247. 6110 GET#4,A$,B$
  248. 6120 T=ASC(A$+CHR$(0))
  249. 6130 S=ASC(B$+CHR$(0))
  250. 6139 ::::::::::
  251. 6140 REM REPEAT
  252. 6141 ::::::::::
  253. 6150 PRINT#15,"U1 4 0";T;S
  254. 6160 PRINT#15,"B-P 4 0"
  255. 6170 GET#4,A$,B$
  256. 6180 T=ASC(A$+CHR$(0))
  257. 6190 S=ASC(B$+CHR$(0))
  258. 6200 AS=AS+1
  259. 6210 IFT>0GOTO6140
  260. 6220 IFAS=ABGOTO6270
  261. 6230 PRINT"[212]HIS FILE IS LOST!
  262. 6240 [153]"(null)LEASE HIT (null)VAL(null)(null)(null)(null)WAIT."
  263. 6250 [161]A$:[139]A$[179][177][199](13)[137]6250
  264. 6260 [160]15:[138]
  265. 6270 [153]"(null)HIS FILE IS EVENTUALLY SALVAGEABLE.
  266. 6280 GOTO6240
  267. 6290 PRINT"[206]O NEED TO RESCUE THIS FILE,BECAUSE IT HAS NO DATA";
  268. 6300 PRINT" IN IT.":GOTO6240
  269. 6999 :::::::::::::::
  270. 7000 REM RESCUE FILE
  271. 7001 :::::::::::::::
  272. 7010 INPUT"[147][198]ILENAME :";F$
  273. 7020 IFF$=""ORLEN(F$)>15GOTO7010
  274. 7100 YJ=1:GOTO4025
  275. 7999 :::::::::::::::::
  276. 8000 REM REFILEPROTECT
  277. 8001 :::::::::::::::::
  278. 8010 INPUT"[147][198]ILENAME :";F$
  279. 8020 IFF$=""ORLEN(F$)>16GOTO8010
  280. 8030 OPEN15,8,15,"I":DE=0
  281. 8040 OPEN4,8,4,"#
  282. 8050 [141]400:[139]MO[178]0[137]600
  283. 8060 [152]15,"B-P 4";AD
  284. 8070 [161]#4,A$:A[178][198](A$[170][199](0))
  285. 8080 [152]15,"B-P 4";AD
  286. 8090 [152]4,[199]((A[175]191)[170]DE);
  287. 8100 [152]15,"U2 4 0";T7;S7
  288. 8110 [160]4
  289. 8120 [160]15
  290. 8130 [153]"ASCILE CAN FROM NOW ON";:[139]DE[178]64[167][153]" NOT";
  291. 8140 [153]" BE":[153]" SCRATCHED.":[153]"  LEFT$RIGHT$(null)  (null)VAL(null)(null)(null)(null)WAIT (null)(null)VALATN(null)VAL.
  292. 8150 GETA$:IFA$<>CHR$(13)GOTO8150
  293. 8160 RUN
  294. 8999 ::::::::::::::::::::::
  295. 9000 REM SHOW FILEPARAMETER             9001 ::::::::::::::::::::::
  296. 9010 INPUT"[147][198]ILENAME ";F$
  297. 9020 IFF$=""ORLEN(F$)>15GOTO9010
  298. 9030 OPEN15,8,15,"I
  299. 9040 [159]4,8,4,"#
  300. 9050 GOSUB400:IFMO=0GOTO600
  301. 9060 PRINT#15,"B-P 4";AD
  302. 9070 GET#4,A$:A=ASC(A$+CHR$(0)):GOSUB800
  303. 9080 PRINT"[147][198]ILETYPE :";T$(AAND7):A7=A
  304. 9090 PRINT"[212]HIS FILE IS";:IF(AAND64)=0THENPRINT" NOT";
  305. 9100 PRINT" PROTECTED":PRINT"AGAINST [211][195][210][193][212][195][200]
  306. 9110 [153]"(null)HE FILE IS";:[139][181](A[173]128)[178]0[167][153]" NOT";
  307. 9120 [153]" CLOSED"
  308. 9130 [161]#4,A$,B$
  309. 9140 T[178][198](A$[170][199](0)):S[178][198](B$[170][199](0))
  310. 9150 [153]"(null)HE FILE STARTS AT";T;"/";S;:S7[178]S:T7[178]T
  311. 9160 [152]15,"B-P 4";AD[170]19
  312. 9170 [139](A7[175]7)[179][177]4[175](A7[175]7)[177]0[137]9230
  313. 9180 [161]#4,B$,A$
  314. 9190 T[178][198](A$[170][199](0)):S[178][198](B$[170][199](0))
  315. 9200 [153]"(null)TART OF THE (null)RIGHT$STR$VAL (null)VALLEN(null)(null)(null) PEEKLOCKS :";T;"/";S
  316. 9210 [161]#4,A$:A[178][198](A$[170][199](0))
  317. 9220 [153]"(null)ECORD-LENGTH :";A
  318. 9230 [152]15,"B-P 4";AD[170]28
  319. 9240 [161]#4,A$,B$
  320. 9250 AB[178][198](A$[170][199](0))[170]256[172][198](B$[170][199](0))
  321. 9251 [153]
  322. 9260 [153]"(null)UMBER OF PEEKLOCKS :";AB
  323. 9270 [152]15,"U1 4 0";T7;S7:[152]15,"B-P 4 2"
  324. 9280 [161]#4,A$,B$
  325. 9290 PS[178][198](A$[170][199](0))[170]256[172][198](B$[170][199](0))
  326. 9300 [139](A7[175]7)[178]2[176](A7[175]7)[178]0[167][153]"(null)HE PROGRAM STARTS WITH";PS;
  327. 9305 [153]
  328. 9310 [153]"(null)(null)VALATN(null)VAL LEFT$RIGHT$(null) (null)VAL(null)(null)(null)(null)WAIT.
  329. 9320 GETA$:IFA$<>CHR$(13)GOTO9320
  330. 9330 CLOSE4:CLOSE15:RUN
  331. 9999 :::::::::::::::::::::
  332. 10000 REM SCRATCH ','-FILES
  333. 10001 :::::::::::::::::::::
  334. 10005 PRINT"[147][208][204][197][193][211][197] [215][193][201][212] ![146]
  335. 10010 [159]15,8,15,"I
  336. 10020 OPEN4,8,4,"#
  337. 10030 F$[178]",":[141]400:[139]MO[178]0[167][152]15,"V":[160]15:[138]
  338. 10040 [152]15,"B-P 4";AD
  339. 10050 [152]4,[199](0)[199](0)[199](0)[199](160);
  340. 10060 [152]15,"U2 4 0";T7;S7
  341. 10070 [137]10030
  342. 10999 :::::::::::::::
  343. 11000 [143] FILEPROTECT
  344. 11001 :::::::::::::::
  345. 11010 [133]"LOADASCILENAME :";F$
  346. 11020 [139]F$[178]""[176][195](F$)[177]16[137]11010
  347. 11030 [159]15,8,15,"I":DE[178]64:[137]8040
  348. 11040 :
  349. 11999 ::::::::::::::::::
  350. 12000 [143] SHOW DIRECTORY
  351. 12001 ::::::::::::::::::
  352. 12010 [153]"LOADSYS        (null)HOW STR$RIGHT$(null)VALLEN(null)(null)(null)(null)       WAIT";
  353. 12020 [159]15,8,15,"I":[141]300
  354. 12030 [159]4,8,4,"#":[141]300
  355. 12031 [152]15,"M-R"[199](144)[199](7)[199](23)
  356. 12032 [132]15,DN$
  357. 12033 [153]"FOR           NAME :";DN$;"           WAIT";
  358. 12040 [152]15,"M-R"[199](250)[199](2)[199](3)
  359. 12050 [161]#15,A$,B$,B$
  360. 12060 AB[178][198](A$[170][199](0))[170]256[172][198](B$[170][199](0))
  361. 12070 [153]"   (null)UMBER OF FREE BLOCKS:";AB;"CMD             "
  362. 12080 [153]"                                        ON";
  363. 12090 [153]"POKE WAIT=STR$VAL(null),OPEN WAIT=(null)VAL(null),SYS WAIT=(null)(null)CHR$,CLR WAIT=(null)(null)(null), WAIT=(null)VAL(null),FOR WAIT=RIGHT$(null)(null)
  364. 12100 F$="[151][159][158][156][129][129][129]"
  365. 12110 P$=""
  366. 12120 T=18:S=1
  367. 12130 REM LOOP ***********************
  368. 12140 PRINT#15,"U1 4 0";T;S:GOSUB300
  369. 12150 PRINT#15,"B-P 4 0":GOSUB300
  370. 12160 GET#4,T$,S$
  371. 12170 S=ASC(S$+CHR$(0))
  372. 12180 T=ASC(T$+CHR$(0))
  373. 12190 PRINTP$;
  374. 12200 FORN=0TO7
  375. 12205 PRINT"                                       [145]";
  376. 12210 AD=32*N+2
  377. 12220 PRINT#15,"B-P 4";AD
  378. 12230 GET#4,A$:FT=ASC(A$+CHR$(0))
  379. 12240 IFINT(FT/128)=0THENPRINT"*";
  380. 12250 GET#4,A$,A$
  381. 12260 PRINTMID$(F$,(FT AND7)+1,1);TAB(1);"";
  382. 12270 FORMN=0TO15:GET#4,A$:IFA$=CHR$(0)THENA$=" "
  383. 12280 PRINTA$;:NEXT
  384. 12290 IF(FT AND64)=64THENPRINTTAB(20);        "[146]<";
  385. 12300 PRINT#15,"B-P 4";AD+28
  386. 12310 GET#4,A$,B$
  387. 12320 AB=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
  388. 12330 PRINTTAB(25);"[146]";AB
  389. 12340 NEXT
  390. 12350 PRINT"[195][207][206][212][201][206][213][197] ([217]/[206]) ?":POKE239,0
  391. 12360 GETA$:IFA$="N"GOTO12410
  392. 12370 IFA$=""GOTO12360
  393. 12380 IFT>0GOTO12140
  394. 12390 CLOSE4
  395. 12400 CLOSE15
  396. 12410 RUN
  397. 12999 ::::::::::::::::::
  398. 13000 REM BASIC-PRINTOUT
  399. 13001 ::::::::::::::::::
  400. 13010 INPUT"[147][159][194][193][211][201][195]-[198]ILENAME ";BD$
  401. 13020 DIMTKEN$(255)
  402. 13030 FORN=32TO127:TK$(N)=CHR$(N):NEXT
  403. 13050 OPEN15,8,15,"I":GOSUB300
  404. 13060 OPEN4,8,4,BD$+",P,R":GOSUB300
  405. 13070 PRINT"[147][149][208][204][197][193][211][197] [215][193][201][212] !
  406. 13080 AD[178]41118
  407. 13090 [129]N[178]1[164]76
  408. 13100 A[178][194](AD)
  409. 13110 A$[178][199](A[175]127)
  410. 13120 [139]A$[177][178]"A"[175]A$[179][178]"Z"[167]A$[178][199](A[176]128)
  411. 13130 TK$(127[170]N)[178]TK$(127[170]N)[170]A$
  412. 13140 AD[178]AD[170]1
  413. 13150 [139](A[175]128)[178]0[137]13100
  414. 13160 [153]TK$(N[170]127),:[130]
  415. 13170 TK$(255)[178]"ON(null)"
  416. 13180 [159]3,4,7:[153]"LOADLEFT$ERE WE GO !
  417. 13190 PRINT#3
  418. 13200 PRINT#3,CHR$(10)CHR$(10)CHR$(10)
  419. 13210 GET#4,A$,A$:GOSUB300
  420. 13220 PRINT#3,"[146][194][193][211][201][195]-[208]ROGRAM :";BD$
  421. 13230 PRINT#3,""
  422. 13240 GET#4,X$,U$,A$,B$:GOSUB300
  423. 13250 LN=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)):IFX$=""ANDU$=""GOTO13370
  424. 13260 PRINT#3,MID$(STR$(LN),2);" ";
  425. 13270 MO=0
  426. 13280 REM LOOP ***********************
  427. 13290 GET#4,A$:GOSUB300
  428. 13300 IFA$=CHR$(34)THENPRINT#3,A$;:MO=1-MO:GOTO13290
  429. 13310 IFA$=""GOTO13340
  430. 13320 IFMO=0THENPRINT#3,TK$(ASC(A$));:GOTO13290
  431. 13330 PRINT#3,A$;:GOTO13290
  432. 13340 REM END LOOP *******************
  433. 13350 PRINT#3
  434. 13360 GOTO13240
  435. 13370 PRINT#3
  436. 13380 PRINT#3,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  437. 13390 CLOSE3
  438. 13400 CLOSE4
  439. 13410 PRINT"[147][198]INISHED. [208]LEASE HIT THE
  440. 13420 [153]"(null)VAL(null)(null)(null)(null)WAIT (null)EY.
  441. 13430 GETA$:IFA$<>CHR$(13)GOTO13430
  442. 13440 RUN
  443. 13999 :::::::::::::::
  444. 14000 REM TEST BLOCKS
  445. 14001 :::::::::::::::
  446. 14002 PRINT"[147][208][204][197][193][211][197] [215][193][201][212] !"
  447. 14005 FORN=0TO127:Q1$=Q1$+CHR$(255):Q2$=Q2$+CHR$(0):NEXT
  448. 14009 PRINT"[147][193][212][212][197][206][212][201][207][206]! [196][207] [206][207][212][146] TEST [194]LOCK [212][210][193][195][203] 18 [211][197][195][212][207][210] 0,
  449. 14010 [153]"BECAUSE IT MIGHT WIPE OUT ALL DATA ON YOUR DISK!!
  450. 14020 INPUT"[211]TART-TRACK ";T
  451. 14030 INPUT"[211]TART-SECTOR ";S
  452. 14040 INPUT"[197]NDING-TRACK ";SC
  453. 14050 INPUT"[197]NDING-SECTOR ";SS
  454. 14060 OPEN15,8,15,"I":GOSUB300:OPEN4,8,4,"#":GOSUB300
  455. 14070 REM LOOP ***********************
  456. 14080 PRINT#15,"U1 4 0";T;S
  457. 14090 PRINT#15,"B-P 4 0"
  458. 14100 PRINT"[147]";T;S
  459. 14110 FORN=0TO255:GET#4,A$:IFA$=""THENA$=CHR$(0)
  460. 14120 POKE49152+N,ASC(A$):NEXT
  461. 14130 PRINT#15,"B-P 4 0":GOSUB300
  462. 14140 PRINT#4,Q1$;Q1$;:GOSUB300
  463. 14150 PRINT#15,"U2 4 0";T;S:GOSUB300
  464. 14160 PRINT#15,"U1 4 0";T;S:GOSUB300
  465. 14165 PRINT#15,"B-P 4 0":GOSUB300
  466. 14170 FORN=0TO255:GET#4,A$:IFA$=CHR$(255)THENNEXT
  467. 14180 IFN<256GOTO14260:REM BAD BLOCK *
  468. 14190 PRINT#15,"B-P 4 0":GOSUB300
  469. 14200 PRINT#4,Q2$;Q2$;:GOSUB300
  470. 14210 PRINT#15,"U2 4 0";T;S:GOSUB300
  471. 14220 PRINT#15,"U1 4 0";T;S:GOSUB300
  472. 14230 PRINT#15,"B-P 4 0":GOSUB300
  473. 14240 FORN=0TO255:GET#4,A$:IFA$=""THENNEXT
  474. 14250 IFN=256GOTO14370
  475. 14260 PRINT"[147][206]ON-FUNCTIONAL [194]LOCK
  476. 14270 [153]"FOUND, DO YOU WANT ME TO MARK HIM
  477. 14280 PRINT"AS OCCUPIED ([217]/[206]) ? A";T;"/";S;"U
  478. 14290 [161]A$:[139]A$[178]"N"[137]14370
  479. 14300 [139]A$[178]""[137]14290
  480. 14310 [152]15,"B-A 0";T;S
  481. 14320 [153]"(null)HIS BLOCK IS MARKED 'OCCUPIED'
  482. 14330 PRINT",BUT CAN BE OPENED
  483. 14340 [153]"WITH (null)ATN(null)RIGHT$STR$ATN(null)VALWAIT !!!!!
  484. 14350 PRINT" [200][201][212] [210][197][212][213][210][206][146] [208][204][197][193][211][197]
  485. 14360 [161]A$:[139]A$[179][177][199](13)[137]14360
  486. 14370 [143] LABEL **********************
  487. 14380 [152]15,"B-P 4 0"
  488. 14390 [129]N[178]0[164]255:[152]4,[199]([194](49152[170]N));:[130]
  489. 14400 [152]15,"U2 4 0";T;S:[141]300
  490. 14410 S[178]S[170]1:[139]S[177]SS[175]T[178]SC[137]14470
  491. 14420 GR[178]20:[139]T[177]17[167]GR[178]18
  492. 14430 [139]T[177]24[167]GR[178]17
  493. 14440 [139]T[177]30[167]GR[178]16
  494. 14450 [139]S[177]GR[167]S[178]0:T[178]T[170]1:[139]T[178]36[167]T[178]1
  495. 14460 [137]14080
  496. 14470 [153]"LOAD(null)E ARE THROUGH ALL BLOCKS !
  497. 14480 FORN=1TO10000
  498. 14490 NEXT
  499. 14500 CLOSE4:CLOSE15
  500. 14510 RUN
  501. 14999 ::::::::::::::::
  502. 15000 REM DISK-PROTECT
  503. 15001 ::::::::::::::::
  504. 15010 PRINT"[147][196]ISK-[208]ROTECT
  505. 15020 [153]"(null)OU CAN ONLY (null)(null)ATNSTR$ THE FILES,
  506. 15030 PRINT"BUT NOT [210][197][193][196],NOR [211][193][214][197] OR [195][207][208][217] !!!!
  507. 15040 [153]
  508. 15045 [153]"((null)OU CAN CHANGE THAT ONLY BY
  509. 15046 PRINT" REFORMATTING THE DISK !!!!)
  510. 15050 [153]"ATN(null)VAL (null)(null)(null) ATNPEEK(null)(null)(null)(null)(null)VAL(null)(null) (null)(null)(null)VAL,(null)LEFT$ATN(null) (null)LEFT$RIGHT$(null) RIGHT$(null),
  511. 15060 PRINT"[215][200][193][212] [217][207][213] [215][193][206][212] ([217]/[206])?
  512. 15070 [161]A$:[139]A$[178]"N"[167][138]
  513. 15080 [139]A$[179][177]"Y"[137]15070
  514. 15090 [153]"(null)VALATN(null)(null)(null) (null)(null)(null)VAL ?
  515. 15100 GETA$:IFA$="N"THENRUN
  516. 15110 IFA$<>"Y"GOTO15100
  517. 15120 PRINT"[211][212][201][204][204] [211][213][210][197] ?
  518. 15130 [161]A$:[139]A$[178]"N"[167][138]
  519. 15140 [139]A$[179][177]"Y"[137]15130
  520. 15150 [159]15,8,15,"I":[141]300
  521. 15160 [159]4,8,4,"#":[141]300
  522. 15170 [152]15,"U1 4 0 18 0":[141]300
  523. 15180 [152]15,"B-P 4 2":[141]300
  524. 15190 [152]4,"N"[170][199](255);:[141]300
  525. 15200 [152]15,"U2 4 0 18 0":[141]300
  526. 15210 [153]"(null).K.
  527. 15220 FORN=1TO10000:NEXT
  528. 15230 RUN
  529. 15999 ::::::::::::::::::::::::::
  530. 16000 REM PRINT FILE HEXADECIMAL
  531. 16001 ::::::::::::::::::::::::::
  532. 16010 PRINT"[147][198]ILENAME"
  533. 16020 INPUT"";DN$:OPEN15,8,15
  534. 16030 OPEN4,8,4,DN$+",R":GOSUB300
  535. 16040 OPEN3,4
  536. 16050 GET#4,A$:IFST<>0GOTO16160
  537. 16060 IFA$=""THENA$=CHR$(0)
  538. 16070 A=ASC(A$)
  539. 16080 LB=AAND15:HB=INT(A/16)
  540. 16090 BY=HB:GOSUB16130
  541. 16100 BY=LB:GOSUB16130
  542. 16110 PRINT#3,"  ";
  543. 16120 GOTO16050
  544. 16130 IFB<10THENCH$=CHR$(48+BY)
  545. 16140 IFBY>9THENCH$=CHR$(55+BY)
  546. 16150 PRINT#3,CH$;:RETURN
  547. 16160 CLOSE4:PRINT#3:CLOSE3:CLOSE15
  548. 16170 RUN
  549.